home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -websites- / haage&partner / ftp / softlogik / pgs33a_33.lha / 3.3a / Install-3.3a < prev    next >
Text File  |  1997-12-23  |  14KB  |  319 lines
  1. ;PAGESTREAM 3.3 TO 3.3a PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1997 SOFTLOGIK PUBLISHING CORPORATION
  3.  
  4. ;QUIT PROGRAMS
  5. (message "\n\nStop now if you haven't read the Read.1st! file for important instructions.\n\nIf PageStream, BME or PageLiner are running now, quit them before continuing.")
  6. (run "avail flush" (safe))
  7.  
  8. ;USE ASSIGNS TO AVOID THE STUPID INSTALLER'S CRASH BUG
  9. (run "CD PageStream3:" (safe))
  10. (run "CD SoftLogik:" (safe))
  11. (run "assign fonts: softlogik:fonts add" (safe))
  12.  
  13. ;CONFIRM CORRECT VERSION IS INSTALLED, SET DESTINATION
  14. (message ("\n\nThis mini-update will patch your PageStream 3.3 hard drive installation to 3.3a.\n\nYour original PageStream3 disks will not be modified by this update.\n\nYou MUST have 3.3 installed to use this miniupdater."))
  15. (if (<> (exists "PageStream3:PageStream3") 1)
  16.     (abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3.3 before applying this update patch.")
  17. )
  18. ;get destination
  19. (set PGSdest (getassign "PageStream3" "a"))
  20. (set SLdest (getassign "SoftLogik" "a"))
  21. (if (OR (= PGSdest "") (= SLdest ""))
  22.     (abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream 3.3 before applying this update patch.")
  23. )
  24. (set PGSsize (getsize "PageStream3:PageStream3"))
  25. (if (<> PGSsize 1569600)
  26.     (abort "You have the wrong version of PageStream installed. Please read the Read.1st! file for instructions.")
  27. )
  28. (set @default-dest PGSdest)
  29.  
  30. ;MAKE REQUIRED DIRECTORIES IF THEY DON'T EXIST
  31. (if (<> (exists "SoftLogik:Engines") 2) (makedir "SoftLogik:Engines" (infos)))
  32. (if (<> (exists "SoftLogik:Libs") 2) (makedir "SoftLogik:Libs" (infos)))
  33. (if (<> (exists "SoftLogik:Printers") 2) (makedir "SoftLogik:Printers" (infos)))
  34. (if (<> (exists "SoftLogik:Filters") 2) (makedir "SoftLogik:Filters" (infos)))
  35. (if (<> (exists "SoftLogik:Effects") 2) (makedir "SoftLogik:Effects" (infos)))
  36. (if (<> (exists "PageStream3:Help") 2) (makedir "PageStream3:Help" (infos)))
  37. (if (<> (exists "PageStream3:Scripts") 2) (makedir "PageStream3:Scripts" (infos)))
  38. (if (<> (exists "PageStream3:Scripts/TextClips") 2) (makedir "PageStream3:Scripts/TextClips" (infos)))
  39. (if (<> (exists "PageStream3:Documents") 2) (makedir "PageStream3:Documents" (infos)))
  40.  
  41. (if (= (exists "PageStream3:PageStream3.rsrc") 1) (delete "PageStream3:PageStream3.rsrc" (safe)))
  42.  
  43. ;COPY THE LHEX PROGRAM TO RAM:
  44. (copyfiles (source "PageStream3Disk1:lhex") (dest "ram:") (nogauge))
  45.  
  46. ;UPDATE LIBS
  47. (working "Installing Updated Libraries...")
  48. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
  49. (delete "Libs.LHA" (safe))
  50.  
  51. ;UPDATE PRINTERS
  52. (working "Installing Updated Printer Drivers...")
  53. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Printers x Printers.lha")
  54. (if (= (exists "SoftLogik:Printers/HP.printer") 1) (delete "SoftLogik:Printers/HP.printer" (safe)))
  55. (delete "Printers.LHA" (safe))
  56.  
  57. ;UPDATE FILTERS AND EFFECTS AND SPECIAL
  58. (working "Installing Updated Filters...")
  59. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Filters x Filters.lha")
  60. (delete "Filters.LHA" (safe))
  61. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Effects x Effects.lha")
  62. (delete "Effects.LHA" (safe))
  63. (if (= (exists "SoftLogik:Filters/PICT.gfilter") 1) (delete "SoftLogik:Filters/PICT.gfilter" (safe)))
  64. (if (= (exists "SoftLogik:Effects/Tiles.effect") 1) (delete "SoftLogik:Effects/Tiles.effect" (safe)))
  65. ;(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Special x Special.lha")
  66. ;(delete "Special.LHA" (safe))
  67.  
  68. ;UPDATE ENGINES
  69. (working "Installing Updated Engines...")
  70. (run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
  71. (delete "Engines.LHA" (safe))
  72. ;(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Languages.lha")
  73. ;(delete "Languages.LHA" (safe))
  74.  
  75. ;UPDATE HELP
  76. (working "Installing Updated HTML Help Files...")
  77. ;(run "delete PageStream3:Help/#? all")
  78. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Help x Help.lha")
  79. (delete "Help.LHA" (safe))
  80.  
  81. ;UPDATE SCRIPTS
  82. ;(working "Installing Updated Scripts...")
  83. ;(run "ram:lhex >NIL: <NIL: -qfw=PageStream3:Scripts x Scripts.lha")
  84. ;(delete "Scripts.LHA" (safe))
  85.  
  86. ;PATCH EXTRAS TO LATEST VERSION IF APPLICABLE
  87.  
  88. ;(run "ram:lhex >NIL: <NIL: -qfw=ram: x Patch.LHA")
  89.  
  90. ;TRUETYPE FONT ENGINE
  91. ;(if (= (exists "SoftLogik:Engines/TTF.font") 1)
  92. ;    (
  93. ;        ; PATCH TTF.KEY TO LATEST VERSION
  94. ;        (if (= (exists "SoftLogik:Special/Keys/TTF.key") 1)
  95. ;            (
  96. ;                (run "spatch -oram:TTF.font -pram:TTF.pch SoftLogik:Special/Keys/TTF.key")
  97. ;                (if (= 37284 (getsize "ram:TTF.font"))
  98. ;                    (copyfiles (source "ram:TTF.font") (dest "SoftLogik:Engines"))
  99. ;                    (message "\n\nYour TrueType font engine could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem TTKEY2NEW.")
  100. ;                )
  101. ;                (delete "ram:TTF.font" (safe))
  102. ;            )
  103. ;        )
  104. ;    )
  105. ;)
  106. ;(delete "ram:TTF.pch" (safe))
  107.  
  108. ;WORDWORTH DOC FILTER
  109. (if (= (exists "SoftLogik:Filters/Wordworth.dfilter") 1)
  110.     (
  111.         ; PATCH WWDOC.KEY TO LATEST VERSION
  112. ;        (if (= (exists "SoftLogik:Special/Keys/WWdoc.key") 1)
  113. ;            (
  114. ;                (run "spatch -oram:Wordworth.dfilter -pram:WW.pch SoftLogik:Special/Keys/WWdoc.key")
  115. ;                (if (= 35388 (getsize "ram:Wordworth.dfilter"))
  116. ;                    (copyfiles (source "ram:Wordworth.dfilter") (dest "SoftLogik:Filters"))
  117. ;                    (message "\n\nYour Wordworth document filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem WWKEY2NEW.")
  118. ;                )
  119. ;                (delete "ram:Wordworth.dfilter" (safe))
  120. ;            )
  121. ;        )
  122.         (if (<> (exists "SoftLogik:Special/Keys/WWdoc.key") 1)
  123.             (
  124.                 (delete "SoftLogik:Filters/Wordworth.dfilter" (safe))
  125.             )
  126.         )
  127.     )
  128. )
  129. ;(delete "ram:WW.pch" (safe))
  130.  
  131. ;TEXT FX EXTENSION
  132.  
  133. ;GET RID OF TEXTFX1 KEY IF V2 EXISTS
  134. ;(if (AND (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1) (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1))
  135. ;    (delete "SoftLogik:Special/Keys/TextFX1.key" (safe))
  136. ;)
  137.  
  138. ; PATCH TEXTFX1.KEY TO LATEST VERSION
  139. ;(if (= (exists "SoftLogik:Special/Keys/TextFX1.key") 1)
  140. ;    (
  141. ;        (run "spatch -oram:TextFX.extension -pram:TextFX1.pch SoftLogik:Special/Keys/TextFX1.key")
  142. ;        (if (= 39508 (getsize "ram:TextFX.extension"))
  143. ;            (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  144. ;            (message "\n\nYour TextFX1 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  145. ;        )
  146. ;        (delete "ram:TextFX.extension" (safe))
  147. ;    )
  148. ;)
  149. ;(delete "ram:TextFX1.pch" (safe))
  150.  
  151. ; PATCH TEXTFX2.KEY TO LATEST VERSION
  152. ;(if (= (exists "SoftLogik:Special/Keys/TextFX2.key") 1)
  153. ;    (
  154. ;        (run "spatch -oram:TextFX.extension -pram:TextFX2.pch SoftLogik:Special/Keys/TextFX2.key")
  155. ;        (if (= 46768 (getsize "ram:TextFX.extension"))
  156. ;            (copyfiles (source "ram:TextFX.extension") (dest "SoftLogik:Engines"))
  157. ;            (message "\n\nYour TextFX2 extension could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem FX1KEY2NEW.")
  158. ;        )
  159. ;        (delete "ram:TextFX.extension" (safe))
  160. ;    )
  161. ;)
  162. ;(delete "ram:TextFX2.pch" (safe))
  163.  
  164. ;JPEG FILTER
  165. ;(if (= (exists "SoftLogik:Filters/JPEG.gfilter") 1)
  166. ;    (
  167. ;        ; PATCH JPEG.KEY TO LATEST VERSION
  168. ;        (if (= (exists "SoftLogik:Special/Keys/JPEG.key") 1)
  169. ;            (
  170. ;                (run "spatch -oram:JPEG.gfilter -pram:JPEG.pch SoftLogik:Special/Keys/JPEG.key")
  171. ;                (if (= 95320 (getsize "ram:JPEG.gfilter"))
  172. ;                    (copyfiles (source "ram:JPEG.gfilter") (dest "SoftLogik:Filters"))
  173. ;                    (message "\n\nYour JPEG filter could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem JPKEY2NEW.")
  174. ;                )
  175. ;                (delete "ram:JPEG.gfilter" (safe))
  176. ;            )
  177. ;        )
  178. ;    )
  179. ;)
  180. ;(delete "ram:JPEG.pch" (safe))
  181.  
  182. ;GARY'S EFFECTS
  183. ;(if (= (exists "SoftLogik:Effects/HSB.effect") 1)
  184. ;    (
  185. ;        ; PATCH GARY.KEY TO LATEST VERSION
  186. ;        (if (= (exists "SoftLogik:Special/Keys/Gary.key") 1)
  187. ;            (
  188. ;                (run "spatch -oram:Convolve.effect -pram:convolve.pch SoftLogik:Special/Keys/Gary.key")
  189. ;                (if (= 11228 (getsize "ram:Convolve.effect"))
  190. ;                    (copyfiles (source "ram:Convolve.effect") (dest "SoftLogik:Effects"))
  191. ;                    (message "\n\nYour Convolve effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWCV.")
  192. ;                )
  193. ;                (run "spatch -oram:Histogram.effect -pram:histogram.pch SoftLogik:Special/Keys/Gary.key")
  194. ;                (if (= 5676 (getsize "ram:Histogram.effect"))
  195. ;                    (copyfiles (source "ram:Histogram.effect") (dest "SoftLogik:Effects"))
  196. ;                    (message "\n\nYour Histogram effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHT.")
  197. ;                )
  198. ;                (run "spatch -oram:HSB.effect -pram:HSB.pch SoftLogik:Special/Keys/Gary.key")
  199. ;                (if (= 6452 (getsize "ram:HSB.effect"))
  200. ;                    (copyfiles (source "ram:HSB.effect") (dest "SoftLogik:Effects"))
  201. ;                    (message "\n\nYour HSB effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  202. ;                )
  203. ;                (run "spatch -oram:Average.effect -pram:Average.pch SoftLogik:Special/Keys/Gary.key")
  204. ;                (if (= 5728 (getsize "ram:Average.effect"))
  205. ;                    (copyfiles (source "ram:Average.effect") (dest "SoftLogik:Effects"))
  206. ;                    (message "\n\nYour Average effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  207. ;                )
  208. ;                (run "spatch -oram:Gamma.effect -pram:Gamma.pch SoftLogik:Special/Keys/Gary.key")
  209. ;                (if (= 14360 (getsize "ram:Gamma.effect"))
  210. ;                    (copyfiles (source "ram:Gamma.effect") (dest "SoftLogik:Effects"))
  211. ;                    (message "\n\nYour Gamma effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  212. ;                )
  213. ;                (run "spatch -oram:Maximum.effect -pram:Maximum.pch SoftLogik:Special/Keys/Gary.key")
  214. ;                (if (= 6256 (getsize "ram:Maximum.effect"))
  215. ;                    (copyfiles (source "ram:Maximum.effect") (dest "SoftLogik:Effects"))
  216. ;                    (message "\n\nYour Maximum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  217. ;                )
  218. ;                (run "spatch -oram:Minimum.effect -pram:Minimum.pch SoftLogik:Special/Keys/Gary.key")
  219. ;                (if (= 6244 (getsize "ram:Minimum.effect"))
  220. ;                    (copyfiles (source "ram:Minimum.effect") (dest "SoftLogik:Effects"))
  221. ;                    (message "\n\nYour Minimum effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  222. ;                )
  223. ;                (run "spatch -oram:Median.effect -pram:Median.pch SoftLogik:Special/Keys/Gary.key")
  224. ;                (if (= 6252 (getsize "ram:Median.effect"))
  225. ;                    (copyfiles (source "ram:Median.effect") (dest "SoftLogik:Effects"))
  226. ;                    (message "\n\nYour Median effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  227. ;                )
  228. ;                (run "spatch -oram:Solarize.effect -pram:Solarize.pch SoftLogik:Special/Keys/Gary.key")
  229. ;                (if (= 4628 (getsize "ram:Solarize.effect"))
  230. ;                    (copyfiles (source "ram:Solarize.effect") (dest "SoftLogik:Effects"))
  231. ;                    (message "\n\nYour Solarize effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  232. ;                )
  233. ;                (run "spatch -oram:Threshold.effect -pram:Threshold.pch SoftLogik:Special/Keys/Gary.key")
  234. ;                (if (= 5032 (getsize "ram:Threshold.effect"))
  235. ;                    (copyfiles (source "ram:Threshold.effect") (dest "SoftLogik:Effects"))
  236. ;                    (message "\n\nYour Threshold effect could not be patched to the latest version.\n\nPlease email support@softlogik.com for assistance. Report problem GEKEY2NEWHB.")
  237. ;                )
  238. ;            )
  239. ;        )
  240. ;        (delete "ram:Convolve.effect" (safe))
  241. ;        (delete "ram:Histogram.effect" (safe))
  242. ;        (delete "ram:HSB.effect" (safe))
  243. ;        (delete "ram:Average.effect" (safe))
  244. ;        (delete "ram:Gamma.effect" (safe))
  245. ;        (delete "ram:Maximum.effect" (safe))
  246. ;        (delete "ram:Minimum.effect" (safe))
  247. ;        (delete "ram:Median.effect" (safe))
  248. ;        (delete "ram:Solarize.effect" (safe))
  249. ;        (delete "ram:Threshold.effect" (safe))
  250. ;    )
  251. ;)
  252. ;(delete "ram:Convolve.pch" (safe))
  253. ;(delete "ram:Histogram.pch" (safe))
  254. ;(delete "ram:HSB.pch" (safe))
  255. ;(delete "ram:Average.pch" (safe))
  256. ;(delete "ram:Gamma.pch" (safe))
  257. ;(delete "ram:Maximum.pch" (safe))
  258. ;(delete "ram:Minimum.pch" (safe))
  259. ;(delete "ram:Median.pch" (safe))
  260. ;(delete "ram:Solarize.pch" (safe))
  261. ;(delete "ram:Threshold.pch" (safe))
  262.  
  263. ;(delete "Patch.LHA" (safe))
  264.  
  265. ;UPDATE HHV
  266. (working "Installing HTML Help Viewer...")
  267. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x hhv.lha")
  268. (delete "ram:hhv.lha" (safe))
  269.  
  270. ;UPDATE BME
  271. (if (exists "PageStream3:BME")
  272.     (
  273.         (working "Patching BME to new version...")
  274.         (run "ram:lhex >NIL: <NIL: -qfw=ram: x BMEpatch.LHA")
  275.         (delete "BMEpatch.LHA" (safe))
  276.         (run "spatch >NIL: <NIL: -oPageStream3:BMEnew -pram:BME.pch PageStream3:BME")
  277.         (if (exists "PageStream3:BMEnew")
  278.             (
  279.                 (delete "PageStream3:BME")
  280.                 (rename "PageStream3:BMEnew" "PageStream3:BME")
  281.             )
  282.             (message "\nThe patch to BME was not successful. Refer to the Read.1st! file for further instructions.")
  283.         )
  284.         (delete "ram:BME.pch" (safe))
  285.     )
  286. )
  287.  
  288. ;UPDATE PAGESTREAM3
  289. (working "Patching PageStream to new version...\n\nThis will take a while...")
  290. (run "ram:lhex >NIL: <NIL: -qfw=ram: x PGSpatch.LHA")
  291. (delete "PGSpatch.LHA" (safe))
  292. (run "spatch >NIL: <NIL: -oPageStream3:PageStreamNew -pram:PageStream.pch PageStream3:PageStream3")
  293. (if (exists "PageStream3:PageStreamNew")
  294.         (
  295.                 (delete "PageStream3:PageStream3")
  296.                 (rename "PageStream3:PageStreamNew" "PageStream3:PageStream3")
  297.         )
  298.         (abort "The patch to PageStream was not successful. Refer to the Read.1st! file for instructions.")
  299. )
  300. (delete "ram:PageStream.pch" (safe))
  301.  
  302. ;DISPLAY README (Try 3 different ways!)
  303. (run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
  304. (delete "Read.LHA" (safe))
  305. (IF (> (run "Sys:Utilities/MultiView PageStream3:ReadMe.Now") 0)
  306.         (IF (> (run "Sys:Utilities/AmigaGuide PageStream3:ReadMe.Now") 0)
  307.                 (run "More PageStream3:ReadMe.Now")
  308.         )
  309. )
  310.  
  311. ;REMOVE LHEX/SPATCH AND .info FILE
  312. (delete "ram:lhex" (safe))
  313. (delete "spatch" (safe))
  314.  
  315. (delete "Install-3.3a.info" (safe))
  316.  
  317. ;DONE
  318. (exit "Finished patching PageStream to version 3.3a.")
  319.